home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / f90 / set_exponent.z / set_exponent
Encoding:
Text File  |  1998-10-30  |  2.2 KB  |  55 lines
  1. SET_EXPONENT(3I)                                       Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      SSEETT__EEXXPPOONNEENNTT - Sets exponent part of a number
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSEETT__EEXXPPOONNEENNTT (([XX==]_x,, [II==]_i))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, and IRIX systems
  12.  
  13. SSTTAANNDDAARRDDSS
  14.      Fortran 90
  15.  
  16. DDEESSCCRRIIPPTTIIOONN
  17.      The SSEETT__EEXXPPOONNEENNTT intrinsic function sets the exponent part of a
  18.      number.  It returns the numeric model number whose fractional part is
  19.      the fractional part of the real number model representation of _x and
  20.      whose exponent part is _i.  For more information on the real number
  21.      model, see the MMOODDEELLSS(3I) man page.  It accepts the following
  22.      arguments:
  23.  
  24.      _x    Must be of type real
  25.  
  26.      _i    Must be of type integer
  27.  
  28.      SSEETT__EEXXPPOONNEENNTT is an elemental function.  The name of this intrinsic
  29.      cannot be passed as an argument.
  30.  
  31. NNOOTTEESS
  32.      This routine is implemented on CRAY T90 systems that support IEEE
  33.      arithmetic by calls to scalar-only library routines.
  34.  
  35. RREETTUURRNN VVAALLUUEESS
  36.      The result type and type parameter are the same as _x.
  37.                                    _i-_e
  38.      The result has the value (_x)(_b   ), where _b and _e are defined in the
  39.      model, provided that this result is within range.  Argument _i should
  40.      be within the range of MMIINNEEXXPPOONNEENNTT((_x)) <= _i <= MMAAXXEEXXPPOONNEENNTT((_x)).  If _i is
  41.      outside this range, the results are unpredictable.  If _x has value 0,
  42.      the result has value 0.
  43.  
  44. EEXXAAMMPPLLEESS
  45.      SSEETT__EEXXPPOONNEENNTT((33..00,, 11)) has the value 1.5.
  46.  
  47. SSEEEE AALLSSOO
  48.      MMOODDEELLSS(3I)
  49.  
  50.      _F_o_r_t_r_a_n _L_a_n_g_u_a_g_e _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, _V_o_l_u_m_e _2, publication SR-3903
  51.  
  52.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  53.      printed version of this man page.
  54.  
  55.